Sarbanes Buster 1.0

Logging in to your computer 10 times a day? More? If you are using Windows, you can
stop that nonsense. Copy the code below and paste it into Notepad. Save the file
under any name you like, but make sure it has a .vbs extension, as in: example.vbs

To use, double-click on the file, then click OK at the prompt. Pro Tip - drag the
file into your start menu so it runs automatically whenever you restart your computer

Set WshShell = CreateObject("WScript.Shell")
wshShell.Popup "Click OK to Start", ,"Sarbanes Buster 2.0", 0
Do While 1
  WshShell.sendkeys "{NUMLOCK}"
  WshShell.sendkeys "{NUMLOCK}"
  Wscript.sleep 60000
Loop

Back to Tom Fangrow's Home Page